Çàêðûòü îêíî
Ñïèñîê äðóãèõ äîêóìåíòîâ ÏÝÂÌ "Àãàò"
Çàêðûòü îêíî
Ñïèñîê äðóãèõ äîêóìåíòîâ ÏÝÂÌ "Àãàò"
8.2.6. Ceìaíòè÷ecêèe ïoäïpoãpaììû.
Bceão â cècòeìe íac÷èòûâaeòcÿ oêoëo 100 ceìaíòè÷ecêèx ïoäïpoãpaìì, êoòopûe ócëoâío ìoæío êëaccèôèöèpoâaòü ïo èx íaçía÷eíèþ:
%LISTM
-CEMÏû äëÿ ïepeâoäa ïpoãpaììû â êoäû P-ìaøèíû;
-CEMÏû äëÿ êoíòpoëÿ oøèáoê (íaïpèìep, CEMÏ, ïpoâepÿþùèé oòcóòcòâèe ïoâòopÿþùèxcÿ èìeí â oïècaíèè çaïècè);
-ïpoöeäópíûe CEMÏû. Ýòè CEMÏû â cëó÷ae íeoáxoäèìocòè çaãpóæaþò òeêcò ïpoöeäópû c äècêa, âûçûâaþò Peäaêòop è ïo ìepe òpaícëÿöèè ïpoöeäópû ôopìèpóþò \oáúeêò ÿçûêa\ - ïpoöeäópó èëè ôóíêöèþ. Ïpoöeäópíûe CEMÏû ïoëó÷aþò óïpaâëeíèe â 3-x cëó÷aÿx:
%LISTD
-B êa÷ecòâe ía÷aëa ïpeäïècaíèÿ CÈHTAH ïoëó÷èë c êëaâèaòópû cëoâo ÏPOÖ èëè ÔÓHK. Ïocëe ïoëó÷eíèÿ èìeíè ïpöeäópû CEMÏ âûçûâaeò Peäaêòop è äëÿ ïocëeäóþùeão aíaëèça íacòpaèâaeò CURCHR ía caìoe ía÷aëo áóôepa Peäaêòpa. ×òoáû paçáop ïoøeë ïo ïpaâèëüíoìó ïóòè (ê ïpèìepó, â Peäaêòope ïoëüçoâaòeëü còep çaãoëoâoê ïpoöeäópû è íaápaë ïpeäïècaíèe "HÓ_È_JNO"->A;), â ía÷aëo áóôepa ïèøeòcÿ cïeö. cèìâoë (êoä ¤7F), êoòopûé oáecïe÷èâaeò ïpaâèëüíocòü âûáopa aáçaöa äaæe â cëó÷ae oáíapóæeíèÿ cèíòaêcè÷ecêoé oøèáêè, ïoâòopíoão âûçoâa Peäaêòopa MOHÈTOPoì è âûçoâa CÈHTAHa c caìoão ía÷aëa. B êoíeö òeêcòa äoïècûâaþòcÿ 2 cïeö. cèìâoëa: oäèí - êaê ïpèçíaê êoíöa ôaéëa, äpóãoé - ÷òoáû CKAHEPó ìoæío áûëo êóäa-íèáóäü cäâèíóòücÿ ïocëe íaxoæäeíèÿ ïepâoão (PL ïo-ïpeæíeìó ócòaíoâëeía ía òo÷êó c çaïÿòoé).
-Èäeò òpaícëÿöèÿ ôaéëa, ââeäeííoão c äècêa ïo ïpeäïècaíèþ BBOÄ ÈÇ ÄÇÓ.
-Èäeò òpaícëÿöèÿ oïècaíèÿ ècïoëíèòeëÿ èëè ìoäóëÿ.
%ENDL
%ENDL
8.2.7. Cooòâeòcòâèe ìeæäó ïpeäïècaíèÿìè PAÏÈPû è êoìaíäaìè P-ìaøèíû.
ÏPEÄÏÈCAHÈE BHÓTPEHHÈÉ KOÄ
(A+B*C/D)**E->L; A,B,C,*,D,/,+,E,**,L,->
F(T[3:5])->U[I+J]; F,T,3,5,[:,BÛÇÔÓHK 1,U,I,J,+,[,->
F1(); F1,BÛÇÏPOÖ 0
<A,B,C>[I]()[J](); A,B,C,Ô< 3,I,[,BÛÇÔÓHK 0,J,[,BÛÇÏPOÖ 0
-#T->M'B.L; T,#,ÓH-,'M B,. L,->
BKË MOÄÓËÜ M; BKËM BÛKËM2 M
BÛKË MOÄÓËÜ M; BÛKËM1 BÛKËM2 M
KOHTPOËÜ A>0 È C<3; A,0,>,C,3,<,È,KOHTPOËÜ
KOHTPOËÜ B ÈÇ E+P; B,E,P,+,ÈÇ,KOHTPOËÜ
KOHTPOËÜ C BÈÄA O; C,O,BÈÄA,KOHTPOËÜ
<¤A:3.0,B:"M"¤>->R; 3.0,"M",Ô<¤ 2 A B,R,->
CTOÏ; CTOÏ
ÏÓCK; ÏÓCK
ØAÃ; ØAÃ
BÛXOÄ; BÛXOÄ
OTÏEPETÜ "H"; "H",ÇAÙÈTA 0
ÇAÏEPETÜ X; X,ÇAÙÈTA 80
OTKPÛTÜ A; A,OTKPÛTÜ 0
OTKPÛTÜ A KAK B; A,B,OTKPÛTÜ XX (XX/=0)
ÇAKPÛTÜ T; T,ÇAKPÛTÜ
ÏOÇÈÖÈß T=777; T,777,ÏOÇÈÖÈß
CTEPETÜ C; C,CTEPETÜ
ÇAKPÛTÜ; ÇAKPBCE
BKË CËEÄ CTPOK; BKË "CTPOK"
BKË BÛBOÄ HA ÁÓMAÃÓ; BKË "BÛBOÄ" "ÁÓMAÃÓ"
BKË BBOÄ ÈÇ ÔÔÔ; BKË "BBOÄ" ¤EE ÔÔÔ
BKË ÇAÙÈTÓ:O,Ï,E; BKË "ÇAÙÈTÓ" 3 O Ï E
BÛKË ÏPOKPÓTKÓ; BÛKË "ÏPOKPÓTKÓ"
POÁÈK; BKË 0
PAÏÈPA; BÛKË 0
KATAËOÃ ÈMEH; KATAËOÃ 0 "ÈMEH" 0
...PEÇ:T//O KHÖ; ...T,O,//,BOÇBPAT
...0->A; KHÖ; ...0,A,->,BOÇBPAT
?I,J:K,L:M:N; I,BÛBOÄ,J,K,BÛBOÄ1,L,M,N,BÛBOÄ2,ÏC
BÛBOÄ B Ô:A,Á(); A,ÏEPEKË ¤EE Ô,BÛBOÄ,ÏEPEKË 0,Á,
BÛÇÔÓHK 0,ÏEPEKË ¤EE Ô,ÏC,ÏEPEKË 0
BÛBOÄ ÁÏC:A; A,BÛBOÄ
BBOÄ ÄAHHÛX:C,Ä; C,BBOÄ "ÄAHHÛX"+¤80 0,Ä,BBOÄ "ÄAHHÛX" 0
BBOÄ:T,P; T,BBOÄ ¤80 0,P,BBOÄ ¤80 0
...;BÛXOÄ;...KHÖ; ...ÏPBÛXOÄ...BÇBPAT
BBOÄ ÈÇ ÄÇÓ:È; ÈÇÄÇÓ È
ECËÈ A/=0 TO A,0,/=,ÏË M,
1->Ë 1,Ë,->
BCE... M:...
ECËÈ A*Á BÈÄA Ö TO A,Á,*,Ö,BÈÄA,ÏË M1,
P->T; P,T,->,
ÈHA×E ÁÏ M2,
T->P; M1:T,P,->,
BCE;... M2:..
BÛÁOP T ÈÇ T,ÇHA×BÁ,
1,2: 1,/=,ÏË M1,ÄÓÁË,2,=,ÏË M2
?"ÏËOXO" M1:"ÏËOXO",BÛBOÄ,ÏC,
! ÁÏ M4,
3: M2:ÄÓÁË,3,=,ÏË M3,
?"ÓÄ" "ÓÄ",BÛBOÄ,ÏC
ÈHA×E ÁÏ M4
?"XOPOØO" M3:"XOPOØO",BÛBOÄ,ÏC,
BCE; M4:CHßTÜ
BÛÁOP ÈÇ
A<0:-1->Ë! A,0,<,ÏË M1,1,ÓH-,Ë,->,ÁÏ M3,
A=0:0->Ë! M1:A,0,=,ÏË M2,0,Ë,->,ÁÏ M3,
A>0:1->Ë M2:A,0,>,ÏË M3,1,Ë,->,
BCE... M3:...
ÏOKA T[I]<0:: M1:T,I,[,0,<,ÏË M2,
I+1->I; I,1,+,I,->,
BCE;... ÁÏ M1,M2:...
ÏOBTOP A:: A,ÇHA×ÏB,M1:ÏOBTOP M2,
A+A->A A,A,+,A,->,
BCE;... ÁÏ M1,M2:...
ÄËß È OT A ÄO Á A,Á,
ØAÃ Ö:: Ö,OÁMEH,ÄËßOT1 È,M1:ÄËßOT2 M2,
È->Û[È]; È,Û,È,[,->,
BCE;... ÄËßOT3 M1,M2:...
ÄËß A ÈÇ B:: B,ÄËßÈÇ1 A,M1:ÄËßÈÇ2 M2,
A+Ë->Ë; A,Ë,+,Ë,->,
BCE; ÁÏ M1,M2:...